判断是否有|使用INSTR函数，函数的说明如下： InStr 函数示例 本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。 Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。 SearchChar = "P" ' 要查找字符串 "P"。 ' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。 ' 小写 p 和大写 P 在文本比较下是一样的。 MyPos = Instr(4, SearchString, SearchChar, 1) ' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。 ' 小写 p 和大写 P 在二进制比较下是不一样的。 MyPos = Instr(1, SearchString, SearchChar, 0) ' 缺省的比对方式为二进制比较（最后一个参数可省略）。 MyPos = Instr(SearchString, SearchChar) ' 返回 9。 MyPos = Instr(1, SearchString, "W") ' 返回 0。 替换|为,使用Replace函数，例如： Replace("KSDHKJH|SDF|SDF"，“|”，“,”）